home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / misc / montor.zip / MONSRC.ZIP / DISKDLL.PAS next >
Pascal/Delphi Source File  |  1993-08-14  |  376b  |  20 lines
  1. LIBRARY DiskDll;
  2. USES WinDos;
  3. {$D Copyright (c) 1993 by Neil J. Rubenking}
  4.  
  5.   FUNCTION GetDiskSize(Drive : Word) : LongInt; Export;
  6.   BEGIN
  7.     GetDiskSize := DiskSize(Drive);
  8.   END;
  9.  
  10.   FUNCTION GetDiskFree(Drive : Word) : LongInt; Export;
  11.   BEGIN
  12.     GetDiskFree := DiskFree(Drive);
  13.   END;
  14.  
  15. EXPORTS
  16.   GetDiskSize INDEX 1,
  17.   GetDiskFree INDEX 2;
  18. BEGIN
  19. END.
  20.